home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / GRAPHICS.BAS < prev    next >
BASIC Source File  |  1995-11-08  |  523b  |  23 lines
  1.  
  2.     ' This is a turtle graphics demo
  3.  
  4.     button #1, Test, Test, LR, 5, 5
  5.     open "This is a turtle graphics window!" for graphics as #1
  6.  
  7.     print #1, "fill black ; home ; down ; north"
  8.  
  9.     for x = 1 to 100
  10.         print #1, "turn 54 ; go "; str$(x*2)
  11.         go$ = "turn 59 ; go "; str$(int(x/10))
  12.             print #1, "color "; 55 + (x * 2); " 0 0"
  13.         for y = 1 to 6
  14.             print #1, go$
  15.         next y
  16.     next x
  17.  
  18.     print #1, "flush"
  19.  
  20.     input "press 'return'" ; r$
  21.  
  22.     close #1
  23.